home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / gemfsc18.lzh / AESSRC18.LZH / AESUTIL.S / RCEQUAL.S < prev    next >
Text File  |  1992-03-07  |  610b  |  20 lines
  1. ;=========================================================================
  2. ; rc_equal
  3. ;=========================================================================
  4.  
  5. _rc_equal::
  6.           .cargs    #4,.psrce.l,.pdest.l
  7.           move.l    .psrce(sp),a0
  8.           move.l    .pdest(sp),a1
  9.  
  10.           moveq.l   #0,d0               ; Assume not equal
  11.           cmp.l     (a0)+,(a1)+
  12.           bne.s     .notequal
  13.           cmp.l     (a0)+,(a1)+
  14.           bne.s     .notequal
  15.           moveq.l   #1,d0
  16. .notequal:
  17.           tst.w     d0                  ; insure CCR return matches d0.
  18.           rts
  19.  
  20.